unit Emp;

interface
type
  TEmp=record
    UserID:integer;
    UserName:string;
    TrueName:string;
    DepartID:string;
    DepartName:string;
  end;
  TSys=class
  public
    class function GetEmp:TEmp;
    class procedure SetEmp(const Value: TEmp);
  //public
  //  class property Emp:TEmp read GetEmp write SetEmp;


  end;

implementation
var
femp:TEmp;

{ TSys }

class function TSys.GetEmp: TEmp;
begin
  Result:=femp;
end;

class procedure TSys.SetEmp(const Value: TEmp);
begin
  FEmp := Value;
end;

end.
